home *** CD-ROM | disk | FTP | other *** search
/ By Popular Request 2.0 / By Popular Request 2.0 (Arsenal Computer).ISO / amiga_2 / cnttlkt2.lha / Routines / CHECK < prev    next >
Text File  |  1994-12-13  |  254b  |  7 lines
  1. CHECK:;if ARG() & ARG(1)~='###PANIC' then return ARG(1)
  2.     getcarrier;if result='TRUE' then if ARG() then return ARG(1);else return
  3.  
  4.     /* You may wish to call SAVE DATA routines here, before exiting! */
  5.  
  6.     logentry 'Lost Carrier!!';bufferflush;exit
  7.